home *** CD-ROM | disk | FTP | other *** search
/ Computer Arts Interactif 42 / CA 42.iso / mac / PC / logiciels / Publication / QuarkPassport 5.0 Beta / Data.Cab / F3811_Pdfl40.dll / PSPROCSET / 18 < prev    next >
Text File  |  2001-08-01  |  3KB  |  160 lines
  1. %%BeginResource: procset pdflev2
  2. %%Version: 4.0 1
  3. %%Copyright: Copyright 1987-1999 Adobe Systems Incorporated. All Rights Reserved.
  4. %%LanguageLevel: 2
  5. %%Title: PDF operators, with code specific for Level 2
  6. /_defaulthalftone currenthalftone dd
  7. /_defaultblackgeneration currentblackgeneration dd
  8. /_defaultundercolorremoval currentundercolorremoval dd
  9. /_defaultcolortransfer [currentcolortransfer] dd
  10. /initialize {
  11. _defaulthalftone sethalftone
  12. /_defaultblackgeneration load setblackgeneration
  13. /_defaultundercolorremoval load setundercolorremoval
  14. _defaultcolortransfer aload pop setcolortransfer
  15. false setoverprint
  16. } bd
  17. /terminate { } bd
  18. /m/moveto ld
  19. /l/lineto ld
  20. /c/curveto ld
  21. /setSA/setstrokeadjust ld
  22. /defineRes/defineresource ld
  23. /findRes/findresource ld
  24. currentglobal
  25. true systemdict /setglobal get exec
  26. [/Function /ExtGState /Form /Shading /FunctionDictionary /MadePattern /PatternPrototype /DataSource]
  27. { /Generic /Category findresource dup length dict copy /Category defineresource pop }
  28. forall
  29. systemdict /setglobal get exec
  30. /ri
  31. {
  32. /findcolorrendering isdefined?
  33. {
  34. mark exch
  35. findcolorrendering
  36. counttomark 2 eq
  37. { type /booleantype eq
  38. { dup type /nametype eq
  39. { dup /ColorRendering resourcestatus
  40. { pop pop
  41. dup /DefaultColorRendering ne
  42. {
  43. /ColorRendering findresource
  44. setcolorrendering
  45. } if
  46. } if
  47. } if
  48. } if
  49. } if
  50. cleartomark
  51. }
  52. { pop
  53. } ifelse
  54. } bd
  55. /_sfcs {_fcs setcolorspace} bind dd
  56. /_sscs {_scs setcolorspace} bind dd
  57. /_sfc
  58. {
  59. _fc aload pop
  60. _fp null eq
  61. { setcolor
  62. _op? setoverprint
  63. }
  64. { _fp setpattern }
  65. ifelse
  66. } bind dd
  67. /_ssc
  68. {
  69. _sc aload pop
  70. _sp null eq { setcolor _OP? setoverprint} { _sp setpattern } ifelse
  71. } bind dd
  72. /scn {
  73. dup type /dicttype eq
  74. { dup /_fp xdd
  75. /PaintType get 1 eq
  76. { /_fc _fillColors 0 get dd ilp }
  77. { /_fc _fillColors
  78. _fcs 1 get
  79. GetComps get dd
  80. sc
  81. }
  82. ifelse
  83. }
  84. { sc }
  85. ifelse
  86. } bd
  87. /SCN {
  88. dup type /dicttype eq
  89. { dup /_sp xdd
  90. /PaintType get 1 eq
  91. { /_sc _strokeColors 0 get dd ilp }
  92. { /_sc _strokeColors _scs 1 get GetComps get dd
  93. SC
  94. }
  95. ifelse
  96. }
  97. { SC }
  98. ifelse
  99. } bd
  100. /gs
  101. {
  102. begin
  103. /SA here { setstrokeadjust } if
  104. /OP here { /_OP? xdd } if
  105. /op here
  106. { /_op? xdd }
  107. { /OP here { /_op? xdd } if }
  108. ifelse
  109. /BG here { setblackgeneration } if
  110. /UCR here { setundercolorremoval } if
  111. /FL here { i } if
  112. /RI here { ri } if
  113. /TR here
  114. {
  115. dup xcheck
  116. { settransfer }
  117. { aload pop setcolortransfer }
  118. ifelse
  119. } if
  120. /sethalftonephase isdefined? { /HTP here { sethalftonephase } if } if
  121. /HT here { sethalftone } if
  122. currentdict gsDI
  123. end
  124. } bd
  125. /f {
  126. { { sfc fill }
  127. {gsave sfc fill grestore clip newpath icl ilp}
  128. {gsave sfc fill grestore eoclip newpath icl ilp}
  129. } _doClip get exec
  130. } bd
  131. /f* {
  132. { { sfc eofill }
  133. {gsave sfc eofill grestore clip newpath icl ilp}
  134. {gsave sfc eofill grestore eoclip newpath icl ilp}
  135. } _doClip get exec
  136. } bd
  137. /S {
  138. { { ssc stroke }
  139. {gsave ssc stroke grestore clip newpath icl ilp}
  140. {gsave ssc stroke grestore eoclip newpath icl ilp}
  141. } _doClip get exec
  142. } bd
  143. /rf {
  144. { { sfc rectfill }
  145. {gsave sfc rectfill grestore clip newpath icl ilp}
  146. {gsave sfc rectfill grestore eoclip newpath icl ilp}
  147. } _doClip get exec
  148. } bd
  149. /knownColorants? {
  150. pop false
  151. } bd
  152. /makePat {
  153. gsave
  154. dup /Matrix get concat
  155. matrix makepattern
  156. grestore
  157. /MadePattern defineRes pop
  158. } bd
  159. %%EndResource
  160.